home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-04d.zip / 04d / Hity z okladki / Plus Firma / Plus Firma 5.5.1.msi / Binary.NewBinary19 < prev    next >
Text File  |  2007-02-14  |  3KB  |  66 lines
  1. Dim sh,key, AccessPath,pos, fs, AccessFileEXE
  2.  
  3. On Error Resume Next
  4.  
  5.     Set sh = CreateObject("WScript.Shell")
  6.  
  7.     key = "HKEY_CLASSES_ROOT\Access.MDEFile.10\shell\Open\command\"
  8.         AccessPath = Sh.RegRead(key)
  9.     
  10.         pos = InStr(AccessPath, "MSACCESS.EXE")
  11.  
  12.         If pos = 0 Then               'Pierwsze niepowodzenie odnalezienia RunTime`a w Rejestrze           
  13.  
  14.             key = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\10.0\Access\InstallRoot\Path"
  15.          AccessPath=Sh.RegRead(key)  
  16.  
  17.            pos = InStr(AccessPath, "\Office10\")
  18.            
  19.            If pos = 0 Then            'Drugie niepowodzenie odnalezienia RunTime`a w Rejestrze
  20.  
  21.                 key = "HKEY_CLASSES_ROOT\Access.Application.10\shell\Open\command\"
  22.                AccessPath = Sh.RegRead(key)  
  23.  
  24.                pos = InStr(AccessPath, "MSACCESS.EXE")
  25.  
  26.                if pos = 0 Then        'Trzecie niepowodzenie odnalezienia RunTime`a w Rejestrze
  27.                
  28.                   Set FsoD = CreateObject("Scripting.FileSystemObject")
  29.  
  30.               AccessFileEXE = "C:\Program Files\Microsoft Office\Office10\MSACCESS.EXE" 'Domyslna sciezka instalacyjna dla Access`a Runtime 2002 
  31.  
  32.                   If FsoD.FileExists(AccessFileEXE ) Then
  33.  
  34.                       AccessPath = "C:\Program Files\Microsoft Office\Office10\"
  35.  
  36.               Else
  37.                        AccessFileEXE = "C:\Program Files\Common Files\Microsoft Shared\Access Runtime\Office10\MSACCESS.EXE" 'Domyslna sciezka instalacyjna dla Access`a Runtime 2002 (w wersji developer)
  38.  
  39.                If FsoD.FileExists(AccessFileEXE ) Then
  40.                        
  41.                            AccessPath = "C:\Program Files\Common Files\Microsoft Shared\Access Runtime\Office10\"
  42.                         Else
  43.  
  44.                            'Na tym komputerze nie wykryto zainstalowanego programu Microsoft Access 2002 Runtime. Bez wstΩpnej konfiguracji uruchomienie CRM plus nie bΩdzie mo┐liwe. ProszΩ post╣piµ zgodnie z zaleceniami instrukcji obs│ugi programu CRM plus znajduj╣cej siΩ na p│ycie CD (rozdzia│ 1, punkt NajczΩ£ciej spotykane problemy i ich rozwi╣zania).
  45.  
  46.                         End If
  47.  
  48.               End If
  49.                 Else
  50.             
  51.                    AccessPath = Mid(AccessPath, 2, pos - 2)
  52.          
  53.                 End If
  54.             Else
  55.  
  56.             End If  
  57.     Else
  58.  
  59.             AccessPath = Mid(AccessPath, 2, pos - 2)
  60.  
  61.     End If 
  62.  
  63.     Session.Property("ACCESSPATH")=AccessPath
  64.  
  65.  
  66.